COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE PLOT
C00006 ENDMK
C⊗;
	TITLE PLOT
	INTERNAL JZERO,IFIX,FLOAT,EXCH,SWITCH
	EXTERNAL FASTOU,FINFIL,EXIT,PUTFIL,OUTF,PLT

IFIX:	0
	KIFIX 0,@(16)
	JRA 16,1(16)
FLOAT:	0
	FLTR 0,@(16)
	JRA 16,1(16)

SWITCH:	0
	SKIPN PLT+4
	JRST S1
	MOVE PLT+=11
	SUBM PLT+=18
S1:	SKIPN PLT+5
	JRA 16,(16)
	MOVE PLT+=12
	SUBM PLT+=19
	JRA 16,(16)

JZERO:	0
	SETZM PLT+=20
	SETZM PLT+=21
	JRA 16,(16)

EXCH:	0
	MOVE 0,@(16)
	EXCH 0,@1(16)
	MOVEM 0,@(16)
	JRA 16,2(16)

LX:	0

	END